home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / wsc32.bas < prev    next >
BASIC Source File  |  1999-05-27  |  4KB  |  125 lines
  1. '
  2. ' WSC32.BAS [2.4]
  3. '
  4.  
  5.  Declare Function SioBaud Lib "WSC32.DLL" (ByVal Port As Long, ByVal BaudCode As Long) As Long
  6.  Declare Function SioBrkSig Lib "WSC32.DLL" (ByVal Port As Long, ByVal Cmd As Long) As Long
  7.  Declare Function SioCTS Lib "WSC32.DLL" (ByVal Port As Long) As Long
  8.  Declare Function SioDCD Lib "WSC32.DLL" (ByVal Port As Long) As Long
  9.  Declare Function SioDone Lib "WSC32.DLL" (ByVal Port As Long) As Long
  10.  Declare Function SioDSR Lib "WSC32.DLL" (ByVal Port As Long) As Long
  11.  Declare Function SioDTR Lib "WSC32.DLL" (ByVal Port As Long, ByVal Char As Long) As Long
  12.  Declare Function SioEvent Lib "WSC32.DLL" (ByVal Port As Long, ByVal Mask As Long)
  13.  Declare Function SioFlow Lib "WSC32.DLL" (ByVal Port As Long, ByVal Code As Long) As Long
  14.  Declare Function SioGetc Lib "WSC32.DLL" (ByVal Port As Long) As Long
  15.  Declare Function SioGets Lib "WSC32.DLL" (ByVal Port As Long, ByVal Buffer As String, ByVal StringSize As Long) As Long
  16.  Declare Function SioInfo Lib "WSC32.DLL" (ByVal Cmd As Long) As Long
  17.  Declare Function SioParms Lib "WSC32.DLL" (ByVal Port As Long, ByVal Code1 As Long, ByVal Code2 As Long, ByVal Code3 As Long) As Long
  18.  Declare Function SioPutc Lib "WSC32.DLL" (ByVal Port As Long, ByVal Char As Long) As Long
  19.  Declare Function SioPuts Lib "WSC32.DLL" (ByVal Port As Long, ByVal Buffer As String, ByVal Size As Long) As Long
  20.  Declare Function SioRead Lib "WSC32.DLL" (ByVal Port As Long, ByVal Reg) As Long
  21.  Declare Function SioReset Lib "WSC32.DLL" (ByVal Port As Long, ByVal RxQueSize As Long, ByVal TxQueSize As Long) As Long
  22.  Declare Function SioRI Lib "WSC32.DLL" (ByVal Port As Long) As Long
  23.  Declare Function SioRTS Lib "WSC32.DLL" (ByVal Port As Long, ByVal Char As Long) As Long
  24.  Declare Function SioRxClear Lib "WSC32.DLL" (ByVal Port As Long) As Long
  25.  Declare Function SioRxQue Lib "WSC32.DLL" (ByVal Port As Long) As Long
  26.  Declare Function SioStatus Lib "WSC32.DLL" (ByVal Port As Long, ByVal Mask As Long) As Long
  27.  Declare Function SioTimer Lib "WSC32.DLL" () As Long
  28.  Declare Function SioTxClear Lib "WSC32.DLL" (ByVal Port As Long) As Long
  29.  Declare Function SioTxQue Lib "WSC32.DLL" (ByVal Port As Long) As Long
  30.  Declare Function SioUnGetc Lib "WSC32.DLL" (ByVal Port As Long, ByVal Char As Long) As Long
  31.  Declare Function SioWinError Lib "WSC32.DLL" (ByVal Buffer As String, ByVal Size As Long) As Long
  32.  
  33. Rem COM port codes
  34.  
  35.  Global Const COM1 = 0
  36.  Global Const COM2 = 1
  37.  Global Const COM3 = 2
  38.  Global Const COM4 = 3
  39.  Global Const COM5 = 4
  40.  Global Const COM6 = 5
  41.  Global Const COM7 = 6
  42.  Global Const COM8 = 7
  43.  Global Const COM9 = 8
  44.  Global Const COM10 = 9
  45.  Global Const COM11 = 10
  46.  Global Const COM12 = 11
  47.  Global Const COM13 = 12
  48.  Global Const COM14 = 13
  49.  Global Const COM15 = 14
  50.  Global Const COM16 = 15
  51.  Global Const COM17 = 16
  52.  Global Const COM18 = 17
  53.  Global Const COM19 = 18
  54.  Global Const COM20 = 19
  55.  
  56. Rem Parity Codes
  57.  
  58. Global Const NoParity = 0
  59. Global Const OddParity = 1
  60. Global Const EvenParity = 2
  61. Global Const MarkParity = 3
  62. Global Const SpaceParity = 4
  63.  
  64. Rem Stop Bit Codes
  65.  
  66. Global Const OneStopBit  = 0
  67. Global Const One5StopBit = 1
  68. Global Const TwoStopBits = 2
  69.  
  70. Rem Word Length Codes
  71.  
  72. Global Const WordLength5 = 5
  73. Global Const WordLength6 = 6
  74. Global Const WordLength7 = 7
  75. Global Const WordLength8 = 8
  76.  
  77. Rem baud codes
  78.  
  79. Global Const Baud110 = 0
  80. Global Const Baud300 = 1
  81. Global Const Baud1200 = 2
  82. Global Const Baud2400 = 3
  83. Global Const Baud4800 = 4
  84. Global Const Baud9600 = 5
  85. Global Const Baud19200 = 6
  86. Global Const Baud38400 = 7
  87. Global Const Baud57600 = 8
  88. Global Const Baud115200 = 9
  89.  
  90. Rem SioGetError Masks
  91.  
  92. Global Const WSC_RXOVER = &H1
  93. Global Const WSC_OVERRUN = &H2
  94. Global Const WSC_PARITY = &H4
  95. Global Const WSC_FRAME = &H8
  96. Global Const WSC_BREAK = &H10
  97. Global Const WSC_TXFULL = &H100
  98.  
  99. Rem Command codes
  100.  
  101. Global Const ASSERT_BREAK = 65
  102. Global Const CANCEL_BREAK = 67
  103. Global Const DETECT_BREAK = 68
  104.  
  105. Global Const SET_LINE = 83
  106. Global Const CLEAR_LINE = 67
  107. Global Const READ_LINE = 82
  108.  
  109. Rem Return codes
  110.  
  111. Global Const IE_BADID = -1
  112. Global Const IE_OPEN = -2
  113. Global Const IE_NOPEN = -3
  114. Global Const IE_MEMORY = -4
  115. Global Const IE_DEFAULT = -5
  116. Global Const IE_HARDWARE = -10
  117. Global Const IE_BYTESIZE = -11
  118. Global Const IE_BAUDRATE = -12
  119. Global Const WSC_NO_DATA = -100
  120. Global Const WSC_RANGE = -101
  121.  
  122. Global Const WSC_ABORTED = -102
  123. Global Const WSC_WIN32ERR = -103
  124.  
  125.